home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / blimp.arc / BLIMP.BAS
Encoding:
BASIC Source File  |  1985-10-04  |  1.6 KB  |  56 lines
  1. 10 DIM A(2000)
  2. 20 DIM C(2000)
  3. 30 DIM B(2000)
  4. 35 CLS:INPUT;" What message (or exit)";L$
  5. 36 IF L$="EXIT"  OR  L$="exit" THEN END
  6. 37 F$ = "               "+L$+".............."
  7. 40 IF L$ = "" THEN L$ = "-----introducing ... THE-IBM-personal-computer------"
  8. 50 SCREEN 1,0:COLOR 0,0:KEY OFF
  9. 60 CLS
  10. 70 GET (1,1)-(45,30),B
  11. 80 FOR G =5 TO 1 STEP -1
  12. 90 CIRCLE (130,83),80,2,,,G*.1
  13. 100 IF G/2-INT(G/2)>0 THEN PAINT (130,80),1,2
  14. 110 IF G/2-INT(G/2)<.01 THEN PAINT (130,80),3,2
  15. 120 NEXT G
  16. 130 LINE (124,120)-(138,126),2,BF
  17. 140 DRAW"c2br74bu10nu66br1nu66nl34u66l34run
  18. 150 PAINT (192,54),3,2
  19. 160 LOCATE 11,14:PRINT"  IBM   "
  20. 170 CIRCLE(100,10),6,3,1,4.1
  21. 180 CIRCLE(107,10),7,3,1,2.1
  22. 190 CIRCLE(104,15),6,3,3,4.3
  23. 200 CIRCLE(114,10),7,3,1,2.1
  24. 210 CIRCLE(114,12),8,3,0,1.1
  25. 220 CIRCLE(114,13),8,3,4.6,0
  26. 230 CIRCLE(107,15),8,3,3.7,5.7
  27. 240 CIRCLE(100,17),4,3,2.7,4.7
  28. 250 CIRCLE(94,13),4,,3,3.7,2.7
  29. 260 PAINT(100,10),3,3
  30. 270 GET (80,1)-(130,22),A
  31. 280 PUT (80,1),B,PSET
  32. 290 LINE (0,190)-(320,190),1
  33. 310 PAINT(22,192),1,1
  34. 315 LINE(0,190)-(27,158),1
  35. 320 LINE(56,191)-(35,151),1
  36. 330 LINE(29,162)-(27,158),1
  37. 340 LINE(29,162)-(35,151),1
  38. 350 PAINT(15,182),1,1
  39. 352 GET (0,191)-(56,150),C
  40. 360 FOR I = 1 TO 380
  41. 370 GOSUB 420
  42. 380 PUT (I,1),B,OR
  43. 385 PUT (I,150),C,PSET
  44. 390 IF I > 28 THEN PUT (I-28,1),A,PSET
  45. 392 IF I > 128 THEN PUT (I-128,21),A,PSET
  46. 400 IF I > 2 THEN LOCATE 11,11:PRINT R$
  47. 410 NEXT I
  48. 420 R$ = MID$(F$,I,14)
  49. 421 IF R$ = ".............." THEN F$ = F$ + L$+"..............":IF LEN(F$)> 210 THEN 35
  50. 430 FOR T = 1 TO 50:NEXT T'TIMER FOR LETTERS
  51. 440 RETURN
  52. 450 PAINT (1,1),3
  53. 460 PUT (80,2),B,PSET
  54. 470 END
  55. F$)> 210 THEN 35
  56. 430 FOR T